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PEER tne (PILES HAVE OBEEth or 2 
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NAMES. RERO ONLY FILES: MEANS. THAT: THE-FILES AR 
THE USER I5 IN AN: AXSSX ACCOUNT. HE WILL NOT BE ABLE TO RUN THE 

fF THE SYSTEM FILES ARE AVAILABLE,’ THE SYSTEM PRINTS 

IN THE LEFT-MOST COLUMN, AHO IS READY TO ACCEPT A COMMAND.” 
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site FORTRAN, SIMULATOR Is UNABLE TO TAKE ACTION ON BNY INPUT 
UNTIL THE USER TYPES A CARRIAGE RETURN. THE “BRESKS KEY MAY BE 
D ONLY WHILE OMSTI 2: FORTRAN IS EXECUTING f FORTRAN PROGRAM, 
f IF If IS PRESSED AT ANY OTHER TIME, CERTAIN FILE DATA MAY BE 
INADVERTENTLY DESTRO'VED. 

















BEFORE THE BYE VERSION OF OMS1 2682 FORTRAN CAN RUM Ot fe 
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MECUTABLE STATEMENT. APP 
AFTER AN-EXECUTABLE STATEMENT WILL USE A FATFIL ERROR. NOt: 
CUTABLE STATEMENTS CANNOT BS REFERENCED BY 00, GOTO, GR IF 

TATEMENTS. THE FINAL STATEMENT. IN THE PROGRAM MUST BE AN END _ 
STATEMENT. ANO ANYTHING APPESRING AFTER IT IS ASSUMED TO BE DATA. 
HENCE. ONLY ONE END IS ALLOMED, AND ALL OFITA MUST FOLLOW DIRECTLY 
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IN FORTRAN, VARIABLE HAMES CAN BE FROM ONE TO SIM CHARACTERS 
LONG. THE FIRST CHARACTER, MUST » ANY OTHER CHARACTERS 
MAY BE ELTHER LETTERS OR DIGITS. f SHOULD AVOID VARIABLE 
THE NAMES oe FUNCTIONS OF CONTAIN STATEMENT 
EOF THO TYPES: INTEGER VARIABLES, THOSE STARTING 
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AFTER ‘THE MONITaR HAS. RE: SPONDED WITH A PERIOD, “THE USER.” 
TYPES “TAPE*.- AT THIS TIME. THE TAPE SHOULD BEGIN. TO 
FEED RUTOMATICALLY: IT MUST BE NOTED THAT THE TAPE- MODE 

MAY BE.USED ONLY OM TERMINALS EQUIPPED MITH THE ¥-On |. a 
: . AND X-OFF FEATURE. AS BACH LINE MUST BE FOLLOMED By % aus 
la R-OFF RETURN LINEFEED. 


» INPUT: 
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PURPOSE: THIS COMMAND ENABLES THE USER TO LOAD HIS PROGRAM - 
* FROM THE TERMINAL WITHOUT USING. A PAPER TAPE. 


“INPUT: AFTER THE SYSTEM HAS TYPED ITS PERIOD. THE USER TYPES 
: “LOADY. THE SYSTEM RESPONDS WITH "PROGRAM NAME") 
: “THEN THE USER TYPES IN HIS PROGRAM NSIME. WHICH 1S 
LIMITED TO TEN PRINTING CHARACTERS. THE PROGRAM > 7: 
HEM TYPED IM. 
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PURPOSE: THE CONTROL Y <"Y) COMMAND IS USED TO EXIT FRAGT THE 
LOAD AND TAPE MODES. 
TNPUT : 
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PURPOSE: THIS COMMAND ENABLES THE USER TQ EXIT THE FURTRER 
S ; TEACHES WITHOUT ERASING THE CURRENT PROGRAM 








INPUT? UPON ‘RECIEPT OF A PERIOD, THE USER TYPES rugoe’, 
“THE SYSTEM RESPONDS WITH A LOGOUT MESSAGE, FIND 
THEN RETURNS THE USER TO BASIC. 
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PURPOSE: THE STORE COMMAND 15 USED TO STORE THE CURRENT FORTRAN 
: Te Tints: Sees ma ial 














INPUT: . THE USER TYPES STORE. 
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PURPOSE: WING IS TO ENABLE THE 
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wr) INPUT: THE USER TYPES AN R. THEN A BLANK SPACE, THEN THE NAME. 


OF THE PROGRAM WHICH IS TO BE RETRIE’ 
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PURPOSE: THIS COMMAND 15 USED TO ERASE A PROGRAM WHICH ‘HAS ; 
‘ “+ +>. BEEN PREVIOUSLY STORED. 


INPUT: THE USER TYPES AN &. FOLLOWED SY A BLANK SPACE. 
HE THEN TYPES THE MAME GF THE PROGRAM NHICH HE 
WISHES TG HAVE SOE Eire Sy. 
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; +o. ADDITION a SUETRACT LON 
2 * MULTIPLICATION ? DIVISION 
aoe EXPONENTIATION : * 
READ 
PUSPOSE: . THE NT IS USED TO ENTER VALUES TO c 
THE CUTING PROGRAM. IT MUST USE A FORMAT 
AND DEVICES ARE <1) INPUT FROM THE 
(oo TERMINAL, AND €2> READ FROM A DATA LINE. THE 
VARIABLES TO WHICH THE D G TRANSFERRED 
MUST BE LISTED AFTER THE 
-PSOGR 2 THE 
END STATEMENT, WITH 
NHICH IT IS TO BE REA. SIMULATOR IS : 
IMAL, IT WYTLL 
LB <B> IN 
MN THE USER TG 
rs 
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STATEMENT. 








O& TG TRANSFER CONTROL TS 
ANOTHER PRET HE: Fr E fe Nets Hever 
OF AM EXECUTABLE STATEMENT. AND A GO TON 
STATEMENT IS EXECUTED, CONTROL WILL BE TRANSFERED TO 
STATEMENT N. . , ‘ 





PURPOSE: THE GO 12 5 
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PURPOSE: THE DO STATEMENT CAUSES RA PREDETERMINED SET OF -. 
4 INSTRUCTIONS TO BE. Ri TED A DESIGNATED NUMBER OF 





ste . TIMES 6 INCREMENTING AN THTEGER VARIABLE BETWEEN t 5 
rs ; TWO ASSIGNED LIMITS. Poo Litre ph Ouhiee mee. omnes 
) : “MENT IN BASIC CAUSING THE STATEMENTS BEGINNING MITH THE 





“STATEMENT IMMEDIATELY AFTER THE DO STATEMENT AND ENDING 
. WITH TRE DESIG TO BE REPEATED. . A CONTINUE ee 
i (, STATEMENT IS PROVIDED TO TERMINATE DO LOOPS; HOWEVER, - ee 
\ MY. STATEMENT EXCEPT GG TO, IF. OF OO MAY BE USED. aS ches 
THE INTITAL VALUE, FINAL VALUED AND STEP SIZE, IF 
PRESENT. MAY BE EITHER AN INTEGER IMSTRNT OF AN 
INTEGER. VARIABLE. NEGATIVE STEP SIZES ARE ACCEPTABLE. 
_ THE INDEX VARIABLE IS UNDEFINED AFTER THE DO IS 3 
“COMPLETED, AND AS A RESULT. IT 15 UNADVISHBLE TO 4 
SUMP INTG OR GUT OF THE RANGE OF A DO LOGP, AS DOING 
SO MIGHT. & UNEXPECTED RESULTS. SEE SECTION 4, 
“DEMONSTRATION PROGRAMS" FOR SAMPLES OF DO LOOPS. 
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NG THE DECIMAL - 
Q.POINT? AND D prGiTs TO THE RIGHT OF THE DECTMAL 
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“USED TO: TRANSMIT N FLOATING POINT VALUES IM. 0° 4 7 
wes) 0S EMPONENTIAL FORMAT. SIMILAR TO F. BUT THE =! 
fio) CH FIELD HIDTH-MUST ALSO INCLUDE THE EXPONENT. 





Me ee ee “BLANK FIELD ‘N SPACES WIDE, : 


ESTs a: USED Ta TRANSHET LCITERALS. 10 THE TE LETHE. 





“GROUPINGS WITHIN FORMAT SPECIFICATIONS MUST BE 






USED TO. SEPARATE FORMAT SPECIFICRT ICH 
A RETURN LINEFEED, AND THEN GO TO THE NEXT GROUPING. 
“IF MORE*THAM ONE SLASH APPEARS INA RGW CAS IN THE 

i PLE NUMBERED 679). AS MANY RETURN-LINEFEEDS WILL BE 
ERIE? tn THERE AIRE SLASHES. i eon 
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OMITTED...AS THE COMPILER WILL ASSUME 4 IF IT IS NOT” 
PRESENT. 
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b iS PASSED TO THE FIRST STATEMENT 
REFERENCE IF THE VALUE OF THE EXPRESSION 15 NEGATIVE, 
THE MIDDLE IF ZERD, AND THE THIRD IF POSITIVE. 
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dials 





Eraririe. IF <X-3. 6) 236. 355. 352 
7S LF CINK*IMP): 598, 519, sale) 


END: : 
- PURPOSE: THE ENO STATEMENT SIGNELS THE END OF THE PROGRAM TO. 


“THE COMPILER. ANYTHING AFTER THE END is Maes TG 
BE DATA, THUS IGNORED. 








EXAMPLE: 7. .END 
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PURPOSE: THE C STATEMENT IS USED TO INSERT NGN-EXECUTASLE:- _ 
-COMMENTS INTO THE LISTING GF A PROGRAM. -C STATEMENTS 
ARE NOT COMPILED OR EXECUTED. THE C MUST GCCUR IN THE 

_ FIRST COLUMN. 





EXAMPLE: C THIS IS AN EXAMPLE OF A COMMENT 
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TYPE OF VALUE PET: 
VALUE 
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REAL REAL 
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AINT ; REAL REAL 
AINTCRYD Poe YALUE. OF 
THE ARGUMENT. CT: RUNCAT LOND 
INT a REAL INTEGER“ CARGEST INTEGER LESS 
INTCRED 2 oe THAIN. OR EQUAL TO THE VALUE OF” 
: : : “THE ARGUMENT. -<TRUNCATION. - 
“ATAN 0 0 REALS REAL oo ~ARCTANGENT OF THE ee 
ATANCRM? (0) OR SARGUMENT ENPRESSED IN RADIANS, 
MEETS | ; REAL | REAL... COSINE OF. THE 
( }° coser> | ARGUMENT EXPRESSED IN RADIANS. 
SIN . REAL REAL 1.) SINE OF THE 
SINCRXD p ARGUMENT EXPRESSED IM RADIANS 
EXP REAL REAL VALUE OF "E" To 
EXPERED eee <THE POMER OF THE ARGUMENT. : 
ALGG 72) REAL. | REAL Sk NATURAL LOGRRITHI 
_ ALOGERND OF THE ARGUMENT. 
ALOGIG REAL CER COMMON LOGARITHM 
ALOGLECRMD © OF THE ARGUMENT. - 
FLOAT INTEGER  REFIL CONVERTS AN INTEGER ARGUMENT 
FLGATCIMD TOA REAL VALUE. 
REAL INTEGER NCATES TH 
CONVERTS IT 
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. PURPOSE 


THIS WILL INSERT 
NTH LINE. IM THE PRG 











COMMAND 





iS [Pigs te 


TS COMMAND CHANGES THE NTH LINE TO THE 
= ra 


A-STRING acta cea ih APPEND THE STRING TO THE END OF 
THE PROGRAM. .- 






LN ei THIS COMMAND WILL PROOUCE A LISTING le HE 
CURRENT PROGRAM WITH 3 
SENCLOSED WITHIN PARENTHESES? PLACED BEFORE. 
EACH LINE. IT MUST BE NOTED THAT=THESE _ 
NUMBERS ARE FOR CONVENIENCE GML. AND ARE 
NOT Fi Bae OF THE at SeTEaialu Sy 








IT SHOULD BE NOTED THAT THE Yr AND Bb COMMENDS WILL ERRCod 
THE SEQUENCING LINE NUMBERS ae STAINED BY LM. 








SAMPLE s 
. 418 FORMAT CFLS. 4 
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e $oy> ae FORMAT“F19, 4 
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Wiss 


| "PROGRAM STORAGE FILE NAME .) THE USER THEN TYPES IN THE NAME 
_ SUBSEQUENT PROGRAM STORAGE COMMFANC 


J FILE, HE MAY DO SO BY TYPING “RAY, WHICH STANDS FOR RESSSIGN, .¢ 


“AND REPORTED TQ THE USER IF ANY? OF THE SYSTEM FILES ARE NOT 





AVAILSGLE IM THE 
ON OF FORTRAN 


COMMANGS 


TERETE 
THE MUMBER OF L 





O FILE NAME, LENGTH 
THE OPEN COMMAND IS USsED OATH TE wire 

SUGRAGE “Pie. A FILE WHEE HORAS BEEN Sheol Bh 

AN BE USED IM A FORTRAN PROGRAM TO STORE DATA. 

MAM IMUM FILE SIZE IS 169 ELEMENTS. 
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ORE. ERASE, 
EXECUTED, THE SYSTEM WILL REQUEST FR 


IT IS POSSIBLE TO USE MORE THAN ONE FILE TG sTC 
PROG 3 WHEN THE FIRST PROGRAM STORAGE COMMAND 
RETRIEVE, OPEN, CATALGG? I 











DOF THE PROGRAM STG 





SET TEE. THE FILE NAME IS KEPT SO THAT. ALI 
AT THAT SITTING HILL BE 
EXECUTED WITHOUT DELAY. If THE USER WISHES TO SWITCH TO RMOTHER 








AND THE SYSTEM WILL REGUEST ANOTHER PROGRAM STORAGE FILE Ne 


WHEM FORTRAN IS FIRST RUN, THE STATUS OF THE FILES 15 CHECKED 


AVAILABLE. ALSO. THE STATUS GF THE PROGRAM STORAGE FILE ms 
CHECKED; IF IT IS READ ONLY, THE SYSTEM WILL ACCEPT CATALOG, 
AND RETRIEVE COMMANDS, BUT WILL NOT ACCEPT STORE, ERASE, 


OR OPEN COMMANDS. 





PUNCH 











THE PUNCH Cop 
CURRENT FORTRAN FROG 
WILL NOT -BE R 
FORMED WI 

NNER, THE USER TYPE: 






PAPER TAPE OF THE 
T NUMBER FIELD 
TIALLY, A LIST 
EATE AYSPE IN 

















ARE TRUE. SEVERAL NED OPERATORS HAVE BEEN ADDED TO _ 
MAKE .THIS STATEMENT MORE USEFUL, “THEY ARE: 

SU AND. 2 7, OR) LPS BOR: EXCLUSIVE aR? 
LEG, <EQUAL TO) 00 NE. NOT EQUAL. 10> 
LT. SLESS THAN? .LE. “LESS THAN OR EQUAL TOD 


-WOULD HAVE A VALUE OF “ 
STATEMENT 15 THIS: - : Ls 


STATEMENTS 





4 INTEGE! 
BILE: 






ne 





Le MPS IMP 
INTEGER ALPHA 


REAL AND INTEGER STATED 1ENTS ARE NON-EXECUTABLE. 


THE PURPOSE OF 
A MEANS TO 


CAL. IF STATEMENT IS TO PROVIDE % 
EMENT.ONLY ITF CERTAN COMDITIONS . = 



















. GT. “GREATER THAND™ . ..GE. “GREATER THAM OR EQUAL TO> _ 


EACH OF THESE OPERATORS RETURNS A ONE IF THE EXPRESSION 5 
TSetRUE heceRO fe in TSePAlSe: Serr EXAMPLE iF Phip ans 

THE VALUE 42, THEN CIMP. EG. 12> MOULD SE GME, AND CIMP. GEL 7>” 
THE FORM OF THE LOGICAL IF 








EFK<CEXPRESSIOND? <STATEMENT> 


WHERE <EXPRESSION> IS ANY LEGRL EXPRESSICN, AND <STATE~ 
MENT> IS ANY EXECUTABLE FORTRAN STA ENT EXCEPT DO,-1F = 
OR END. IF <EXPRESSION> IS TRUE (NON-ZERO), THEN THE © 
<STATEMENT> WILL SE EXECUTED.” a 









19% TEVOGES. EG. 
gait einlspntd ies} 
IF CGANG 
TESFAST> | 








READC2, 14> GRHGRE 
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AMEND 


MINL 
AMING 
MING 


AMINLCRLX, RAK) ss RMD 





HOOITIONAL FURIET £4 
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TYPE AND NUMBER TYPE GF 


OF ARGUMENTS Kuta tel t=, 
= REA REAL 
= INTEG IMTEGER 





2 OR MORE 
2 OR MORE § 
2 OR: NGRE INTEG 
OR MORE INTEG 





RETURNS THE 
‘ T PLGEBRATC 
INTEGER ARGUMENT. 









OG 


2 OR MORE 

2 OR MORE - RETU i 
2 OR MORE INTEGER REAL SMALLEST ALGEBRAIC 
2 OR MORE . INTEGER. JINTEGER © ARGUMENT. 








RETURNS THE ABSOLUTE VALUE 


















SIGN 2° REAL 
ISIGN 2 INTEGER ie OF THE FIRST TIMES. THE SIGN 
SIGNCRLM, ROX ok ie OF THE SECOND. 
“DIM 2 REAL “REAL “RETURNS THE POSITIVE 
IDIM ; Z INTEGER INTEGER DIFFERENCE BETHEEN THE 
DIMCRAX, ROMD 4 = oe TNO ARGUMENTS. ‘ 
PAUSE 
PURPOSE: THE PAUSE STATEMENT CAUSES PROGRAM EXECUTION TO ; 
A HALT FOR A PERIOD OF FIVE SECONDS IF THE USE 
eee DURING THE EXECUTION GF A PAL . 
STATEMENT, EMECUTION WILL BE TERMINATED. IF AN INTEGER 
1S PLACED apres THE, WORD PRISE, Iv WILL BE PRINTED UPON 
EXECUTION” | fone : oa 
EMAMPLE: 108 PRUSE i 


PAUSE 472 


DATA 





THE OATA INTIALIEE 
STATEMENT WHOSE Pu 
NON-SUSSCRIPTED ‘i 











S A MOM-EXECUTABLE 
INITIAL VALUES TO 








AMPLE: DATA 1.3. FL 
iM WOULD SET Isa, J 





* DATA IMe,. INL 1S 


WOULD SET IMP=i9, IMP2 





FORMAT 


H FORMATTING IS AVAILAGLE. 
REPRESENTS THE NUMBER 
UDED IM THE LIT FIELD, GH GUTPUT. THE LITERS 
THE -H IS PRINTED. ON INPUT. ESSENTIALLY tae nA oe 


TS FORM 15 WHYEMT. bin 
RS AFTER THE H MHICH 





CARRIAGE CONTROL HAS BEEN ADDED TO FORMAT STATEMENTS. : 
THE FIRST. CHARACTER OF THE FIRST HOLLERITH FIELD OR LITER 
STRING IS THE CARRIAGE CONTROL CHARACTER, 








= CHARACTER’ CARRIAGE RESPONSE < 





FORMFEED-(48 LINEFEEDS> 

DOUBLE SPACING j 
NO CARRIAGE RETURN OR LINE! FEED rae 
CARRIAGE RETURN ONLY io: 
LINEFEED OHLY 


) 
+e Or 


ANY OTHER CHARACTER WILL CAUSE SINGLE SPACING. THE 
FORMFEED WILL BE PRINTED BEFORE THE REST -GF THE SPECIFICATIONS: 
IN ALL OTHER CASES, THE CARRIAGE CONTROL WILL BE peels AT ee END OF. 
THE WRITE. 









EXAMPLE: | 4998 : FORMAT CZ3HATHIS ‘1s i SAMPLE HOLLERTIH FIELD> : 
= os 7 255 FORMAT“ SHSERROR, 213. 19H RUN ENDED * 
95 FORMATCSH YOU HAVE, FP. 2. 27H CONS, .F7. 2, 8K HORSES. > 








Be4 


Ve 








2. 





EMAMPLE > 


DIMENSIONED I ? 
MUST BE THE FIRST STATEMENT IN THE: PRO 


COMPUTED GOTO 


THE. COMPUTED GoTo FOR 
TRAM R TO ONE OF TH THE 
FROM A LIST Gr STATED ERS, "OME 1S CHOSE! 
RIPTED INTEGER VAP 










is “24 IF 








STATEMENT Se i 4 
IF Ine WAS 4. TF THE VALUE OF LESS THEN GONE 
OR GREATER THAN THE NUMBER CF ster MENT NUMBERS 
LISTED, AN ERROR MESSAGE WOULD RESULT. 


1— DIMENSION STA 
RAM. IF Ar ARRAY NAME 





APPEARS IN A TYPE STATEMENT “REAL GR INTEGER>. THE MODE OF THE 
ENTIRE ARRAY WILL BE CHANGED. THE TOTAL NUMBER GF SUBSCRIPTED 
VARIABLES MUST NOT EXCEED Z6Q° IN AT MUST 12 SEPRRATE VARIABLES. 


+ EXAMPLE: 





DINENSTON. ALPHACS, 19), ZAPPAC4, 6, 2, TCL5> - 


SUBSCRIPTED VRRIABLES MAY BE USED IN ASSIGNMENT. READ, 


WRITE. AND IF STATEMENTS. 
OR. AN INTEGER VARIABLE. * 


ENAMPLE: 





SUBSCRIPTS MAY BE AN LTNTEGER CONSTANT 


DIMENSIOM IMP<16,16) ates 
199 © FORMATCIZ> Sh. ad SOS 
299 - FORMAT“ 8°. 14> ; oe i 


288 FORMAT“ > 






tes unsies INK 23 +INKGe INKS 


255 

















DATA FILES 








A BME Tich: Fas Ube eee sea Fal 
Mut FILE 








pea kT, 
TRING 


TRE Sire ME ties 
PSG) Be lUSeoR 
FROM THE FILE, 


FY WHICH 
ONTO AIH 








PURPOSE: . THE DEFINE FILE STATEMENT IS USED TO SPECIFY WHICH 

- FORTRAN DATA FILE IM WHICH BASIC PROGR STORE 

SPIRE. 1S) TOCRE RETRIEVER, If iS A NOW-EXMECUTABLE 
BiH AN 








EXAMPLE: ; ‘ DEFINE FILECBASICE, FORTRNOFTRD : 
i oS CALLS US eRe “FORTRNDATA” FROM THE BASIC” ele peeeeieeS 





* . DEFINE FILEC SEL LOG. DATAFILEL? Z 
CALLS THE: ENTRY "DATAFILEL" FROM THE BASIC FILE "JELLO" 





ase WRITE 


PURPOSE: THE FIL E WRITE STATEMENT I5 USED TO WRITE THE VALUE 
OF VARIABLES ONTO THE DATA FILE. IT HAS THE FORM? 


WRITECS) YARD VFR, 











WHERE THE CEVICE CODE "5" INDICATES Al WRITE ONTO THE 
FILE. THERE MUST NOT ae es 
FILE CONTAINS UNFORMATTED.. UNTYPED DATA. THE YVARIRSLES 
ARE WRITTEN GONTO THE FILE, AND THE FILE POINTER IS 
ADVANCED TO THE LOCATIGN IMMEDIATELY FOLLOMING THE 

, LAST VALUE WRITTEN ON THE FILE. ' 





EXAMPLI 





185 INK, IM 
Tae, APE, 12,12? 
FILE READ 
PURPOSE: THE PURPOSE OF THE FILE READ STATEMENT 15 TO ALLOW 


VALUES WHICH HAVE 


PISMO nS i adele as ae f= 
RETRIES IT HAS : 





1 





READCS>2 VAR. VARS 














PURPOSE: 


PURPOSE :: 


EXAMPLE: 


THE BACKSPACE STATEMENT IS USED To BACKSPACE THE 
-.. POINTER ONE POSITION TO ALLOK DATA: ITEMS TO BE... 





THE TYPE OF THE Venue 
IF ECE > TO MATCH 
INTO WHICH IT 1S BEING READ 
ONES IMMEDIATELY AFTER 






THE FILE POINTER 15 
We 


LSe sC4> IMP. THE, ALC LSUBY 


REWIND 





IMD STATEMENT ALLOWS THE DATA IN A FILE was} 


‘BE RE-USED BY RESTORING THE FILE POINTER 16 THE 


BEGINNING OF THE FILE. 


RENIND 


“is BACKSPACE 


FILE, 





SELECTIVELY RE-READ. 








Nod 


“AFTER THE USER HAS TYPED THE EXE! 
_1S TOO SMALL. IN EITHER CASE, THE FILE MUS’ 
“OR THE PROGRAM MUST. BE SHORTENED FOR THE SYSTEM TO LOAD SND - 
_ EXECUTE THE PROGRAM. 











TO RUN THE 
nt 
SENT TO 

i THE FORT! 

T EOMeETEES: 
1 DATA AND 


IMANOS USE 













PUMILT 
Sens tS. 


THE RECOMMENCED 





A 25 STEP PROGRAM ARE: 





SSE 

FINULT 3 
FrNcaP ZS 
FYMFLS is 


Ts 
muh 





TO RUN A O1S@ STEP PRO THESE MIGHT SE USED: 
4 












BaaBe7E \i0 SegeaneR = oy 
- = PTMULT Eee 
- ee | FINCOP 15% 
=: : Se | ETNFL 2 
2 pias 





IF THE SYSTEM PRINTS “PROGRAM IS TOG LONG” AFTER THE USER 

HAS TYPED THE LORD COMMEND. THE FILE FTNFLS IS TOO SMALL. IF 

THE SYSTEM RESPONDS WITH THE “PROGRAM I5 TOO LONG” MESS! 

UTE COMMAND. THE FILE (eTucor’ ee 
EITHER BE ENCRRGED 

















IN THE 239GB/E VERSION, IF THE USER WISHES TO OPERATE Fi 
LIBRARY OF STORED PROGRAMS, HE MUST OPEN A BRISIC FILE NAMED 
FTNFLB. AS THIS FILE WILL CONTAIN LISTINGS OF STORED PROGRAMS. 
IT IS AOVISAGLE TO OPEN THE FILE FOR AT LEAST 18 RECORDS. 





USERS OF THE 2998C/’F VERSION MAY OPEM FILES WITH Ary? 
NAMES, AND RESPOND WITH THE NFIME OF THE FILE THEY 
USE WHEN A "PROGRAM STORAGE FILE NAME—-" IS REQUE 













MINIMUM OF 3S RECORDS iS 
FILE IS CHECKED BEFORE IT 
ACCEPTABLE PROGRAM STORA 

GY FORTRAN FOR THAT PL 
AS BEING A FORTRAN PR 






Ty ES Maia ci 
D BEFORE 
AND FLAGGED 












NS gta SEVERH C1A ARACTERS WHIC! RM UTILIZES 


bai} IS USED TO EXIT F § 
STATEMENT. IF THE F CHARACTER THE US 
TYPES IN IS A CONTROL & 6782, THE PROGR 
WILL BE TERMINATED. 











pat ; USEO TO EXIT FROM AN INPUT LOOP, MAY BE 
AIT FROM THE FORTRAN MONITOR TO EML 
A FILE, CHECK ON TIME OR SF 


TO EXIT RETURNS THE USER TO BASIC. 











oN GENERATES A LINEPEED WHEN 
SHOULD BE AVOIDED th LISTIN 
FORTRN PROGRAMS. 






INTED, AND THEREFORE 
AND PUNCHES GF 





Aa] ‘., GENERATES A RETURN WHEN PRINTED, AND. THE! 
“SHOULD MOT BE INCLUDED IN LISTS OR PUNE 
AS SO DOING WOULD CAUSE SEVERE GARBLING IF 
TRE TAPE. WERE RUN BACK IN. : eh 






LOR) ESC“1S5 USED.TO DELETE THE ENTIRE CURRENT LINE OF | 
INPUT. “ON THE 20088 AND 2GeeC, USE ESC, ON THE 
20025 AND F, USE 7X. ECHOES AS A BRICKSLASH! 





Ww 





‘Sarg IS USED TO EXIT FROM THE LOAD AND TAPE MODES. 





_ IS USED TO DELETE THE CHARACTER IMME 
PRECEEDING IT. MORE THAN ONE BACKS: 
MAY BE USED IN A ROW: EACH BACKARROM DELETES 
ONE CHARACTER. FOR EXAMPLE: ” 








EDECU<—-<€-—¢-<-MECUTE- IS INTERPRETED AS 
EXECUTE 


cSt iS INTERPRETED AS . 





Co ECHOES AS."_" ON SOME TERMINASS. > 





WwW 
th 


‘PAGE 3-1 OF THIS MANUAL. ” 


/ AND SAVE 





10M TAPE LOADING tas TRU T COS 










THE NANE THAT EACH PROGRAM MUST Heys 
SEPAR: FOR TRE EM TAPE THE FOLLOWING 
IS SUGGESTED Fog ING: 








S POINT. THE 
READER, WHEN I 
KEY 
SAVE 


S MUST BE REPEATED FoR EACH OF THE FOLLOWING 
MANE COMMAND TO THE APPROPRIATE PROGRAM 





FORTRN FINCPL FINRUM 
FINLIS FTNCPS FIRRNZ 
TAINS 


IF POSSISLE,.. THE USER SHOULD CSAVE FTNCPL, -FTHCP2, FUNRUNS 
AND FTMRN2, AS THEY CHAIN REQUENTLY. X : ; Y 
-ALL NECESSARY FIL OR SYSTEM GPERATION ARE LISTED ON ; 






299GR-E SYSTEN LIBRARY USE 


270 ENABLE THE FORTRAN SYTEM TO PUN FROM & SYSTEM LIBRARY, 


THE USER MUST MODIFY THE CHAIN STATEMENTS, TO DG SO, HE MUST 


GET THE PROGRAM, TYPE IN THE INDICATED LINES, AND. THEN KILL 
2 CSAVWED THE PROGRAM. Far FORTRAN YO BUM ON A > - 
29998, ALL QUOTATION MARKS MUST BE REMOVED FROM THE CHAIN 
STATEMENTS. SEE PAGE 1-1. 








NAME | INES == : 

FORTRN 328 -.. CHAIN “SFTNLIB" : a 
1968 CHAIN "SFTNINS" 
4239 CHAIN "SFTNCPL” 

FTNCPL 4959 CHAIN "S$FTNCP2" 
1149 CHAIN ORTRN” 
4928 CHAIN “EFTNELINE 

feugiletees: L928 CHAIN 

FTHRUN  — 434 CHAIN 
589 CHFIN 

FTNPN2 

FPTNLIG 

















SOON TAPE WORDING IMS (RU Dts 


ME THAT EACH P 





AM MUST HAVE 1S 
THE FOLLGMING 





THE § 





SITTEM OM TH 
OF Cope 








POINT. S 
WHEN IT 








ESS FOR EACH OF THE FOLLMING PROGRAMS is ; 
SCHANGING THE NAME COMMANO To THE APPROPRIATE PROGRAM MEME 2 
EACH TIME): 





_FTNINS © 
ALL NECESSARY FILES FOR SYSTEM CPERATION 
PAGE 3-1 OF THIS MANUAL, ae 


S688C7F SYSTEM/GROUP LIBRARY USE 






é ) TO ENRSLE THE FORTRAN SYSTEM To RUM FROM & SYSTEM oR GROUP: f : 
: LISRARY, THE CHAIN STATEMENTS MUST BE MODIFIED. TO DO THIS, 5 e ¢ 
THE USER MUST RETRIEVE THE DESIGNATED PROGRAM, TYPE . 
LISTED BELOW. AND THEN KILL AND csavE OR SAVED THE 





NAME - LINES <FOR GROUP USE, CHANGE: = 


FORTRN.: ° 45@ CHAIN SF TNINS” 
1224 CHAIN "SFTNINS", 24a 
1376 CHAIN "SFTNCPL” 





FTHCPL- : $48 CHAIN "SFTHRUN? 
386 CHAIN “SFORTRN", Lag 


FTNRUN 228 CHAIN 
229 CHAIN 





FININS 1638 CHAIN "SFORTRHO, 15a g ‘ SES 





z-4 


SYHTAS 








DUPLICATE LINE NUMBER 
-THO OR MORE STATEMENTS 





SAME LINE NUMBER. 





EMPRESSION Ta 
=THE AF 
MUST BE CHAI 


G COMPLEX 
NETIC EXPRESSION CONTAINS TOO MANY ELEMENTS: IT 
GED TO THO OR MNGRE 5S 







SMPONENT 
EXPONENT ON CONSTANT IS 44 07 LAR 
Be CHANGED TO HAVE AN EXPONENT LESS THEN 4B. 


SEEEGAS 





THE CONSTANT MUST 


“ILLEGAL FORMAT “ 
-THE SYNTAM OF THE STATEMENT 15 NOT COMPATIELE- WITH THE 
SYSTEM. - CHECK THE STATEMENT CAREFULLY FOR MISPLACED COMMAS. | 
MISSPELLINGS, is THE LIKE. IF Ni OBVIOUS ERROR .IS FOUND. CHECK 
THE MANUAL. A COMMON CAUSE OF THIS ERROR 15 USING Fi VARIAGLS - 
NAME THAT IS ALSO A KEVHORD. j 











eZ ILLEGAL FORMAT SPECIFICATION 
—THE FORMAT STATEMENT CONTAINS AN INCORRECT SPEC— 
_TFICATION. .CAUSES INCLUDE. THE USE OF THE Wt 
RITEMPTING TO USE’ A. FIELD LAr FOTHAN 29 IN RN apa 
SPECIFICATION, OR NOT ALLOWING SPACE FOR THE NECESSF i 
DECIMAL POINTS, SIGMS OR EMPONENTS IN AN E OR F CODE, - pate 
CHECK THE FORMAT SECTIONS IN THE MANUAL. aed 
















ILLEGAL LINE NUMBER ; 
. “THE LINE NUMSER IS NOT A POSITIVE INTEGER LESS THAN 
ONE HUNDRED THOUSAND. 








ILLEGAL OPERAND 
“THE STATEMENT TYPE 
CHECK SPELLING, FIND THEN 








ILLEGAL a 





JIESCRIPTS 
S ON 














“MAY NOT HAVE SPACES In IT. 














Gat cies 


THE F 
Crore mE SMPLE THE 400M 
TIVE INTEGER 






CHUM Sree tes 
ears 
HAM OR ECUAL TO 











mn sa Cree 
Hsia) Tee SUB: 





LAST STATEMENT | NOT END Sis eee 2 > 
“EVERY FORTRN PROGRAM MUST HAVE AN.END STATEMENT AS 
fee CASI. SrAneMetit: IT MUST START IN eee SEVEN, AND 





“MISSING LEFT PARENTHESIS 


RIGHT PARENTHESIS 





“MISSING STRING DELIMITER > é 
! “A LITERAL FIELD IM A FORMAT STATEMENT IS MISSING A. 
— CLOSING lS e TURE nie 





NON-EXISTANT LINE REFERE 

-A REFERENCE HAS 
-NOT EXIST OR THE PR 
STATEMENT OR AN EY 
OR WRITE STATEMENT. 


ENCED : t : 
MOMADE TG S LINE NUMBER WHICH DOES 
M ATTEMPTS TO BRANCH TO A NON-EXECUTABLE 

CUTABLE STATEMENT IS REFERENCED BY A READ ~~ 










NO STATEMENT TYPE FOUN : g : ‘ 
“THE STATEMENT TYPE REQUESTED IS EITHER NOT AVAILABLE oR HAS) 7 
BEEN MISSPELLED. : ae 


UNDECIPHERABLE OPERAND i , sie 
SAN ARITHMETIC EXPRESS i VALURTED iN ie MANNER E = 

i Sitch 
TE 2 THE USEF 
F CONSTRUCTING THE 





SHOULD CHECK 
EXPRESSION. 


THE MANUAL FOR 


ny 








peo) He Lie. 


ILLEGAL SUBSCRIPT 






EXECUTION ERR 





BAD FLOATING POINT INPUT 





MAL POINT, 
ING THE FORMAT SPEC 





cant 





E TYPE, 
t NEGATIVE NUMBER “WITH AN i SPECIFICATION. 


DO LOOPS NESTED TOO DEEP 
-bO LOOPS WERE NESTED My 





END OF FILE DATA 


SAN EEE oe MADE TO READ AN UNCEFINED LOCRTIGN S 





ILLEGAL ARITHMETIC PARAMETERS 

“CAUSES OF THIS ERROR MESSAGE INCLUDE IMPROPER USE es 
OF FUNCTIONS <SQRT OF A NEGATIWE NUMBERD, DIVISION BY ZEROL 
OR RAISING ZERG TO A NEGATIVE POWER, : : 








ILLEGAL EXPONENT : oes 
“THE EXPONENT GN A VALUE WHICH WAS READ USING AN E 
SPECIFICATION HAS AN EXPONENT WHICH IS 49 CR LERGER 


ILLEGAL FILE POINTER POSITION 

“THE FILE POINTER HAS GONE GUT OF RFINGE. THIS IS 
CAUSED BY BACKSPACING TO A POSITION BEFORE THE BEGINNING 
OF THE FILE, OR BY WRITING PAST THE PHYSICAL END OF THE 
FILE. - 


TEPEGAE ere REFERENCED 


~THE LAST STATEMENT OF A DG LOOP IS EITHER A DO, Bore OR 
1 oats atulsais THE PROGRAM MUST BE MODIFIED BEFORE IT CAN RUN, 





Sle CRIPT ON AN Fi f? IS ELTHER LARGER THAN 
ITS DIMENSIONED VALUE OR IS NOT A POSITIVE INTER 





Wy 
1 
“~y 

















aS 


Ww 


TLLEGHL USE 
Hite 
OF STATEMENT 






hi 








QM CONTAINS E THAN OME MODE WITHOUT 
APPROPRIATE MODE ALTERING FUNC 








NON-ENECUTAGLE STATEMENT 
-PROGRAM 1S ATTEMPTING 
STATEMENT. 








STANT FILE ‘ ¢ 
-THE SYSTEM WAS UNASLE TO FIND THE REQUESTED FILE. 


NON-FORMAT STATEMENT REFER ED 
“THE PROGRAM IS ATTEMPTING TO USE aN EXECUTABLE 
STATEMENT AS A-FORMAT FOR READ. Of WRITE. 









OUT OF PROGRAP DATA 
“TAN ATTEMPT HAS BEEN MADE TO REBO MORE CATS THAN IS 
LISTED AT END GF THE PROGRAM. 


SAME VARIASLE IN TWO HESTED LOOFS 
PROGRAM HAS THO Sse LOOPS USING THE SHAME INDEX 
ARAIBLE, 


TOO MANY SUBSCRIPTED VARIABLES 
“PROGRAM REQUESTS MCRE THAN “299 LOCATIONS FOR 
SUBSCRIPTED VARAIBLES OR USES MORE THAN 12 See itsi Es 


* -ARRAYS. 


JMDEFINED VARIABLE ACCESSED - 
SUSER RAS REQUESTED A YARIASLE WHICH HAS NOT: BEEN 
PREVIGUSLY DEFINED BY THE PRG! ‘i 





al 
wo 





i 









OOF PHE oR 
CIRCLES OF A TRIANGLE GIVEN THE LE! 
THE TRIANGLE. 






BED AND 
THS GF 
ar 









DOES NOT? > 


HPO 


aS 



































3 TRIANGLE 1 

4 Ri OLS OF THE INSCRIBE! S -,F8. 5) 

5 1 OF THE It ssh sp 

s RADIUS OF THE CIRCLE IS “Fe. 5> 

? E AREA OF THE ED CIRCLE LS *% FS. 527) 
QoSIDEL, SIDES, HYPOT 

TECSIDEL+S IDES-HYPOTIS. 9. 18 

2) LSIDEL, SIDES, HYPOT 

2> 
“GOTO a4 

46 .. IFCSIDELS, 9, 41 =e 

ii IRCSIDES22, 5, 12 

2s 

13 DE2+HYROT > 


SIDE-SIDEL) #4 SIDE-SIDEZ2*<SIDE-HYPOT> 2, 


2a9SIDEL, SIDEZ, AYPOT 
S.AREAL 
WRITES. 49RADIUL 
WRITES, SSAREARS 
WRITECZ, S2RADIV] 
. . WRITECS, PARES 
14  . CONTINUE 
sTaP 


END 





gonna 


19. G19. B19. 








LOADING FOR 


TE 





EXECUTION FORTRAN “CIRCLES” 





THES Brite 5: 
ey alsin ley ints 


AREA OF THE CIRCUMSCRIBED CIRCLE 15S 


E RADIUS OF THE INSCRIBED CIRCLE 15 


E RADIUS OF THE CIRCUMSCRISED CIRCLE 







RADIUS OF THE. 
FRER OF THE INS& 
RADIUS OF THE 





I@ED CIRCLE 


DATA 14. @ 25. 6.55.8 DOES NOT 


ERMINE A TRIANGLE. 


R THE DATA 19,8,39.015.8 ~ . 


AREA OF THE TRIANGLE I5 42. 29127 






AREA OF THE INSCRIBED CIRCLE I5 2 


RARER OF THE CIRCUMSCRISED CIRCLE 15 


EXECUTION COMPLETED 

















leet 
FISONACCT 
(3 
roe TRATION . 
(~} is HT THE FIRST 25 FIBONACCI NUMBERS 
is 
Cc 
196 
aon CIMP2I+TMPCIMPS> ae 
Do 289 IMPi=1, 29 x 
Bas WRITES, 1a IMPL, IMPCIMPL> 
sTorP 





LOADING | FORTRAN “ipeteielnl alee = 


EXECUTION (eens (fe ABN 








BE OU WHE 


Oo Ob) 1) be 








EXECUTION COMPLETED = 











oo0a07: 


Cc 





DOO 99 ISTRT: 39. 2 
IWIRESIFIMCSORTCFLOATCISTRTD 2) 
DG INIRE, 2 
LFCISTRI-ISTRIVIZAP+IZAP) 33, 95, 8g 
83 CONT ENE 
WRITECS, 2BQ>1STRT 
33 CONTINUE 
: STOP 
END 
(abyss 












LOADING “FORTRAN “PRIMES” 


EMECUTION | FORTRAN “ PRIMES” 


THIS PROGRAM FINDS PRIME NUMSE! 
PRIME 
PRIME 
Lidice INS, 
PRIME 
PRIME 
PeTMe: 
PRINE 
PRIME 
“PRIME 
PRIME 
PRIME 
PRIME 
ieee te: 
PRIME 
PRIME 








EXECUTION COMPLETED 











A CAF DEMONSTRATION 
LYE GUADRATIC EQUATIONS 











Ta 
Str 





THE EQUATION *) FS. 5, “#724, FS. 5, He, FS. 5. eB" 9 


ay 
1 
c 
c 
c 
Cc 
BS 
es 

= 





GR 7, FG. 59 






















6 FORMATS 
? FORMATS WOFS. 4. °#I OR 4) FP. 4,7 FS. Be I 
an 
: CKBtSMRTCDD Hd. GIVES, GHD 
WRITECS, 5? GL, a2 3 
‘ GATS 1s 
pe a2. Giese 
WRITE = & 
peste 16 : 
43 ees 
C2. Ge 
. MRITECS. 7? QL an 02 
(CO... 28 | CONTINUE 
. stop 
END 


a4, eRBg8a25 
Baz, asR900-1. 
e215. 98B09-24 
250. 12900RRH 
. EXECUTE 





2. +haRe 











AD ING 


SECUTION 


FORTRAN “QUADRATIC” 


FORTRAN 7 QUADRATIC’ 





8. 7Se9e5 


OR THE EQUATION 
. FZS5+4, 44 24%] OR 


FOR THE EQUATIGN. 16. eagage”~7a+—24. 





25. HAGA K+ 24 

















Ls 


i 


Ws fd 


3 
2 


















ELEMENT =", E2e. 10> 


J be 
MIFCIA3 3b a4 

TREL, KI=e, B 

_GOTO 3 : : 
VACHE, Koad. B = 


CONTINUE 
DO SO IPSi. Mn : F 
Im=IP ss 2 

St=te ey £ 
DO 16 I=IST.N 
LF CASSACIM. IPD O-ABSCACT, IP399S, 18,16 © 
IM=1 ; : 
CONTINUE 
LECABSCACIM, IPD9-EPSIL) 14.: 
WRITECS, 12> ACIM, IP> 
TFCACIM, 179942, 7B, 13 
IFCIN-IP 14, 2a, 14 





= 





“pO 415 J=IP, Ni 


AL=ACIP. J? 
ACIP. J <ImM, J> 






ACIP, 33 














LOAOING FORTRAN ° 


EXECUTION FORTRAN “INVERSE* 





“1. 2580 ne 
1. 7528 je 5 
-9, 2536 2s 








EXECUTION COMPLETED 




























DIGIT NUME 





FOR S 
FORMED C7 a MEN Ce sont 
FORMAT. JURE -. 
FORMATS? * JULY “5 12. 
AUGUST * 





MAT * 
MAT C¢ 
FORMAT <* 


FORMAT“. DECEMBER “.I2°, *, 143 - 

‘FORMATS’ ANOTHER NUMBER AND YEAR <TYPE ZERG TO STOP?’ > 
“READC2, SOMCLD, MEDI, MC : fi 

_READC2, SOOMCPD, MCS). MCSE, MCLOD,. MOLD. MEZ> - 
NRITE / s = 





WRITES, 28> 
READCL, 45) NUMB, IVR 


_IFCNUMBS. EQ. B> GOTO 189 


: fi CAF DEMONSTE 
AM CONVERTS THREE DIGIT NUMEER TO OFYY IN THE YEAR 





TL 


& OIGIT HUME 
ENTER THE 
ba He Dad 








22649, M05, M052 











_ TFKMODCIYR, 499328, 22S, 328 





~ PMICS3=291 
, dG 496 T=1,12 


TFCNUME. LT. Meld) GOTO Sea 


NUMB=NUMB—P¢ E> 


” CONTINUE 


Syl? 
IFC. GF. 69GOTG 699 


GOTOCTSS, 716, 728, (EG, 749, FSB 













IsI-5 | : 
GOTOCeean, 816, 823, 
WRITE 2NUME, TYR 
GOTO 128 


WRITE 
GOTO 1 


WRITECS, 





POIMLUMEL DR 


OMUNE. TYR 


DNOME, TYR 


AMINE, Tt 

















LOADING | FOR 


VFNOTHER NUP 


SG oNUMS, 









DNUME. 


DNUME, IVR 





gota : 


WRITE IvR 





TYR 


GoTo 
END 








TRAN 


EXECUTION . FORTRAN 


THES PROGRAM WILL CONVERT A 
THAN S INTG A DRY GF THE 
DIGIT NUMBER THEN THE YEAR. 








eS LO: 


AND EAR 





JULY 24, 1973 
R NUMBER 
ee 
JULY 23, 12 
8 





AND YEAR 





72 
ER 


AND YEAR 





823, 1973 
JANUARY 23, 


i373 





ANOTHER NUM 
Bac) 


TION COMPLETED 





* CALENDER’ 





CTYPE 


“CALENDER? . 


THREE DIGIT eee 


ENTER THE 


aH, BEER 


STOP> 














ww 

















 NUM=MUM—La4cL Baer ¢ 5-IMP > 


t 


2075 
THE GAME OF 
BY PORIN JE 






TY GUEST IONS 
5 


FORMAT «12> 





Too LOW? > 
Too HIGH" > 





GNS. i AM THINKING > 
OF RMU 2 Ff 4 YOU GUESS WHAT IT 15773 
IRST TELL ME YOUR LUCKY SIX DIGIT NUMBER. “> 





i SORRY, SOU ARE OUT OF GUESSES. THE HUMGER WAS”. [a> 
FORMATCY WHAT IS YOUR G fea 
WRITES Z. 494) 








“WRITECZ, 4822 


READCIL. 
NUMBER=1 

DO 23 IMP=1,5 

LTSNUM/i G4 S—-1T MPD 
IBER=NUMBER+1 ws 


NUP 






















228 - 

+ 598) pice 

» LBG>1GUESS 

IF ¢ TGUESS-NUMSER 49, 58. 45 

WRITEXZ, 294) 

GoTo 5a 

WRITES, 288) 

CONTINUE 

WRITECS, SOA NUMBER 

STOP , 5 ‘ 
WRITEXE, 89) 
sToP 

END 











5 HE QUEST TONS. TAM THIME ING 
WO GUESS WHAT IT IS? 
2 DIGIT HUMBEM. 





TELL ME YOUR LUCKY S&S 





YOUR GUESS? 






3H 
YOUR GUESS? 


tT IS YOUR GUESS? 


VESEILitt 


EXECUTION COMPLETED 


u 














Se 


#960014. osauLr. 












BETAS 





35 IMP=INTCALPHASETAD 
 WRITECS, 328 IM 
77. CONTINUE 
STOP 
END Z 
_ EXECUTE Br 


LOADING FORTRAN “ PREDIY-” 


_ EXECUTION FORTRAN *PREDIV? 


cH He av 
THE HEAT SEVEN SPACE! 





THIS PROGRAM DOES DIVISION TO 29 PLACES. 
TYPE IN THO NUMSERS “ONE IN THE FIRST SEVEN . 


SPACES, .THE OTHER IN FHE NEXT SEVEN 





G. S2ES294117647S5S6225 


EXECUTION COMPLETED 


SPACES, >- 


(OM To 23 PLACES. - > - 
EM? D 
5. 97>. 











eesrrt 








NCO-STRING 
CARRIAGE CONTROL 




















FUNCTIONS 


NEL. 





ARITHMETIC OPERATORS 
ARITHMETIC STATEMENT 

3 ! 
78 An?, 3-2 

SACKSPACE ee 2-7 Hq 

BUG REPORTS PREFACE  HEIRARCHY 

HELP 
iS HOLLERTIH FIELO 





NHTE! 


















CATALOG hy 
COMMANDS 4-4 70 4 NI-STRING 
COMMENT : TASS 
COMPUTED GUTO IDIM G 
CONTINUE YF, NULTIGRANCH 
eos IF. LOGICAL 

IFEX 
D _ Int 
ND JINTEGER 
DATA FILES SIGN 
DATA, PROGRAM MIM 
DATA STATEMENT 
CEFINE FILE 2-5, 1-2 ie 
DEVICE CODES 4-7, 1-8 KIOB a-S 
DIM 
DIMENSION e 
D0 LIST 

LN COMMAND 
E LOAD 
EDITING i LIF 
END LOADING INSTRUCTIONS 
ESss 
E 


























MING 
(pads ee 
MOD 
MODE OF EXPRE 
MULT IBRANCH 









TONS 


s 





EM COMMAND 21 


AMS. SAMPLE 





iS 


SAMPLE PROGRAMS SECTION 4 





SIGN ; : ie es 
SIN eh Silsh 
SPECIAL CHARATERS . 3-2 
SORT anit 
STOP 4-13 
+ STCRE : : aks 
SUBSCRIPTED VARIABLES 2-5 





“SYSTEM AND: GROUP LIBRARY USE 


2eg88/7E oot 





F 3-4 
SYSTEM OPERATION and 
T “ 
TABSING > dee t—3 
TRPE- : and 
TAPE LOADING INSTRUCTIONS 
2agge7e : A-t, Z-E 
2BR9C¢F a4 
TPUNCH 41-5 
1 
UFR 1-5 
v 
VARIABLES 4-3 
MW 
WRITE 
te, 








OMSI 2000 C/F | 


COMMANDS 





LOAD 


Accept a FORTRAN progre 
AY (ctrl 1) 


Tab over Line sunber field 
zit from LOAD command 
wmecute FORTRAN program 
Print text of program 
Punch tape ef program 

Punch tape of pro 
using AZ for tabbing 























TAPE Accept progran fron t. 

JOS : Return to BASIC, delet 
current pregren 

vos 


Return to BASIC, without 
ae Geicting projran 
Sumnary, of system operation 





EDITING COMMANDS 


IN-$E1,242 Lists program with sequence 


numbers fron eel to 























he #42, "EN" Gives whole text. 
= #22C-text Changes seguencd numbered 
5 + line #32. to “text” 
Pfel-text Inserts "text" before line .. 
* woG2D Deletes line £24 
Astext Makes “text” final line of 
* the program 
CATALOG CO:ANDS 
5 cA Catalog of programs in user's 
3 program storage file 
rose Stores current program in 
‘ user's storage file ~ 
& R nane Retrieves program 
& E nare Erases program "nano" 
OQ x @ nane,<len> Creates a file "name" which 





can hold <len> aunbers 
Reassign another program 
storage file 


we ee 


FUNCTIONS AND OPERATORS 


fs Functions 
argument, REAL vaiue 
(=x) ne Of rx in radians 
cos(rx) * cosine of rx’ 
SgaT (rx square root 

absolute value 
e to power rx 
truncation 
arctan. in radians 
log base e 
leg base 19 
renainder of ‘rl/z2 
transfer of sign 
positive difference 
largest valve 
smallest value 

















FLGG (rx) 

> ALOGLS (rx) 
#eOD(r1,r2) 
SIGN (<3, 12) 


DIM{r1,=2) 
AMAZA (xi,=2,- 
PMEINL (21, 22,6 
REEL 
IFr 





















largest value 
smallest value 


largest value 
smallest value 








ae 

ws + > nt. 
= sebtractior > SSS 
* paltiply Ss rae 
/. divide 20R. AL Ox 
**  exponentiate TaND, logical ana 


+EOR. exclusive or 


“ORTRAN SUMMARY 


STAT 





iTS 





Rei 





<var>=<exp> 


Stores value of <exp> in <var> 
Cc 


nent A "C" jn the first colunn canses 
tof the line to be ignored. 
dueny statement 
>, <numbers.../ 
r>s to corresponding 
<nunber>s. Non-executable 
DEFINE FILE (<pro ile>,<file>) Defines 
which file in which program 
storege file will be used for 
file comnands. Non-cxecutable. 
DIMENSION <var>(<bounde>) , Reserves space 
for ar Ss. OM, 
ables in 12 array 

















courinus 
DATA <var>,<var> 





















DO. $8? <ivar>=<initial>,<ifinal>,<istepo> 
Causes lines down to and including, 
#38 to be repeated 
1+ (<ifinal>-<initiel>) /<istep> 
tines, <istep> default is-+]. 
END Indicates end of text. 
FORMAT (<spec>,<spec>,...) Formats jnput-output. 
Specifications allowed are 
niw = Integer ele 
nPw.d ~ Floating point 
nEw.d .- Exponent form 
nk “~ Space 
“text! + Literal ficla 
witext - Hollerith field 
vhere “n" is the replicator, * 
Be the field width, "a" is the 
nunber of digits after the decimal 
point, and “text" is a string. The 
first character cf the first string 
is used for carriage control. 
Transfer control to line wit! 
line number if# 3 
+)<iver> If <ivar> equals n, 
control goes to 2én. 
IF (<exp>) $81,842 Branches depending on 

















1 

















GOTO $32 





GOTO ($91,852,. 





2 
to #23 
IP (<exp>) <statement> 





Logeal IF. 
statement if <exp> is true (#5) 


Executes 


INTEGER <var>,<var> . Defines. <var> to be 
an integer varizble. Non-executable 

Causes 5 second delaly, printing 

out <number>, if present. 

<var list> Reads values for vari- 

ables from the terminal, using. 
FORMAT state: ae. 

READ (2,2$#) <var list> Reads values for vari- 
ables frox ata, using FORMAT 
statement #42. Everything after 

the END is data. 

READ (4) <var list> — aeads values for variables 
fron file, File definded by DEFINE 

. FILE. 

REAL <vax>,<var>,... Defines <var> to bea real 

variable. Non-executeble. 





PAUSE. <nunber>- 


READ (1,025 






























STOP Halts execution, 
WRITE (3,222) <var list> Prints values of vari- 
i ables out on terminal using FORMAT 
stater 





WRITE (5) <var list> Writes values of variables 
onto the file, File defined by 
DEFT. FILE. 





Variables and ogerations 
Variables may 





to 6 characters, The 
first must be a lett hers may be letters or’ 
digits. If the first letter is a I, J, K, ly 
M, or N the variable will be integer. Starting 
with her first letter w the vari 
All ererations must take 
sane node. 
All arrays nust be cinensioned, and may have 1 to 
3 @inens + ,The mode ef the crtire array is 
determined by its first character. Only iateger 
value or integer variables nay be used as sub-- . 
scripts, 
























m Of 289 vari- . 
iS. Non-executadle, | 





